home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Intervals / i-direction2 < prev    next >
Text File  |  1998-08-11  |  473b  |  16 lines
  1. i-direction2 start direction integer
  2.  
  3. start :up :down
  4.  
  5. (i-direction2 :down
  6.                 '(1 2 3 2 2 1) '(1 2 1 2 1 1 2 3 1 2 6))
  7. => (-1 2 1 -2 -1 -1 2 3 -1 -2 6)
  8.  
  9. (i-direction2 :up
  10.                 '(1 2 3 2 2 1) '(1 2 1 2 1 1 2 3 1 2 6))
  11. => (1 -2 -1 2 1 1 -2 -3 1 2 -6)
  12.  
  13. (i-direction2 :down
  14.                 '((1 2 3 2 2 1) (1 2 3 2 2 1))
  15.                 '((1 2 1 2 1 1 2 3 1 2 6) (1 2 1 2 1 1 2 3 1 2 6)))
  16. => ((-1 2 1 -2 -1 -1 2 3 -1 -2 6) (-1 2 1 -2 -1 -1 2 3 -1 -2 6))